home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Perils of Palermo.cpt / Perils of Palermo / card_6223.txt < prev    next >
Text File  |  1987-11-16  |  7KB  |  301 lines

  1. -- card: 6223 from stack: in
  2. -- bmap block id: 5622
  3. -- flags: 0000
  4. -- background id: 5366
  5. -- name: Game card
  6. ----- HyperTalk script -----
  7. on opencard
  8.   play dragnet
  9.   wait until the sound is "done"
  10.   global ladderyet
  11.   put notyet into ladderyet
  12.   put empty into card field TextBox
  13.   set visible of button bulb to true
  14.   set hilite of button bulb to false
  15.   set visible of button fixture to true
  16.   set hilite of button fixture to false
  17.   set hilite of button BlackBox to true
  18.   set textfont of card field TextBox to Geneva
  19.   set textsize of card field TextBox to 14
  20.   Click at the loc of card field TextBox
  21.   Type "You awaken in a dark room." & return & return
  22.   Wait 3 seconds
  23.   Type "You can hardly see a thing." & return & return
  24.   Wait 3 seconds
  25.   Type "You hear a scream ‚Ķ" & return & return
  26.   Play sophia tempo 100 g4
  27.   Wait 3 seconds
  28.   Type "It is your neighbor's wife, Sophia!" & return & return
  29.   Wait 3 seconds
  30.   Type "It sounds like she's in BIG trouble!!" & return & return
  31.   Wait 3 seconds
  32.   Type "Ahead, you see what looks like a light bulb." & return & return
  33.   Wait 3 seconds
  34.   Type "What will you do?" & return & return
  35.   Wait 4 seconds
  36.   Answer "Do you want to take the light bulb?" with "Okay, Nick"
  37.   Type "Now you have the light bulb." & return & return
  38.   Type "So do something, huh!" & return & return
  39. end opencard
  40.  
  41.  
  42.  
  43. -- part 4 (field)
  44. -- low flags: 00
  45. -- high flags: 0007
  46. -- rect: left=291 top=31 right=180 bottom=491
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 14
  52. -- style flags: 0
  53. -- line height: 18
  54. -- part name: TextBox
  55.  
  56.  
  57. -- part 7 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=384 top=241 right=262 bottom=406
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 29019 / 29019
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: New Button
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global ladderyet,messagestring,messagestring2
  72.   if ladderyet contains "already"
  73.   then
  74.   Play sophia tempo 100 c5
  75.   put "You have saved Sophia.  You are a hero!" into messagestring
  76.   put "You get 20,000 points." into messagestring2
  77.   visual dissolve slowly to gray
  78.   go to next card
  79. else
  80.   put already into ladderyet
  81.   play thud
  82.   put empty into card field TextBox
  83.   set textfont of card field TextBox to Geneva
  84.   set textsize of card field TextBox to 14
  85.   Click at the loc of card field TextBox
  86.   Type "You have walked into what feels like a ladder." & return & return
  87.   Wait 4 seconds
  88.   Answer "Do you want to take the ladder?" with "Okay, Nick"
  89.   Type "Now you have the ladder and the light bulb." & return & return
  90.   Wait 3 seconds
  91.   Type "On the ceiling you see what looks like a light fixture." & return & return
  92.   Wait 3 seconds
  93.   Type "What will you do?" & return & return
  94.   Wait 4 seconds
  95.   Answer "Do you want to climb the ladder?" with "Okay, Nick"
  96.   Type "You are at the top of the ladder." & return & return
  97.   Wait 3 seconds
  98.   Type "What will you do?" & return & return
  99.   Wait 4 seconds
  100.   Answer "Do you want to screw in the light bulb?" with "Sure, Nick"
  101.   Wait 2 seconds
  102.   Type "You can't, you idiot!  There's no one to turn the ladder!!" & return & return
  103.   Play boing
  104.   Wait 4 seconds
  105.   Answer "$%*!&*!" with "Sorry, Nick"
  106.   Wait 2 seconds
  107.   Play sophia tempo 130 g4
  108.   Wait until the sound is "done"
  109.   Play sophia tempo 130 a4
  110.   Wait until the sound is "done"
  111.   Play sophia tempo 130 g4
  112.   Wait until the sound is "done"
  113.   Wait 1 seconds
  114.   Type "Sophia's screams are getting more desperate." & return & return
  115.   Wait 4 seconds
  116.   Type "There is REAL danger ahead." & return & return
  117.   Wait 4 seconds
  118.   Type "So do something, big shot!" & return
  119. end if
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 15 (button)
  125. -- low flags: 00
  126. -- high flags: 4001
  127. -- rect: left=29 top=57 right=284 bottom=251
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: BlackBox
  136.  
  137.  
  138. -- part 6 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=85 top=213 right=246 bottom=119
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 31629 / 31629
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Bulb
  150.  
  151.  
  152. -- part 12 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=384 top=280 right=301 bottom=406
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 2730 / 2730
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: New Button
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   global messagestring
  167.   global messagestring2
  168.   put "You left Sophia to die a horrible death!" into messagestring
  169.   put "You get 10,000 points." into messagestring2
  170.   Play sophia tempo 10 b3
  171.   wait 2 seconds
  172.   visual dissolve slowly to gray
  173.   go to card "oops"
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 13 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=417 top=260 right=281 bottom=439
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 1013 / 1013
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: New Button
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   global messagestring
  193.   global messagestring2
  194.   put "You walked into a wall!" into messagestring
  195.   put "You get 10,000 points." into messagestring2
  196.   play thud
  197.   wait 2 seconds
  198.   visual dissolve slowly to gray
  199.   go to card "oops"
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 14 (button)
  205. -- low flags: 00
  206. -- high flags: 0000
  207. -- rect: left=350 top=260 right=281 bottom=372
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 1014 / 1014
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: New Button
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   global messagestring
  219.   global messagestring2
  220.   put "You walked into a wall!" into messagestring
  221.   put "You get 10,000 points." into messagestring2
  222.   play thud
  223.   wait 2 seconds
  224.   visual dissolve slowly to gray
  225.   go to card "oops"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 16 (button)
  231. -- low flags: 00
  232. -- high flags: 8003
  233. -- rect: left=70 top=307 right=329 bottom=212
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Nick, I need a clue!
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   set visible of button bulb to false
  245.   set visible of button fixture to false
  246.   set visible of button BlackBox to false
  247.   wait 5 seconds
  248.   set visible of button BlackBox to true
  249.   set visible of button bulb to true
  250.   set visible of button fixture to true
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 17 (button)
  256. -- low flags: 00
  257. -- high flags: 0000
  258. -- rect: left=124 top=63 right=96 bottom=158
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 2720 / 2720
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Fixture
  267.  
  268.  
  269. -- part contents for card part 4
  270. ----- text -----
  271.  
  272.  
  273.  
  274.  
  275. You have walked into what feels like a ladder.
  276.  
  277. Now you have the ladder and the light bulb.
  278.  
  279. On the ceiling you see what looks like a light fixture.
  280.  
  281. What will
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.